home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / GWAda 1.5.1 / GW-Ada⁄Ed-MacProgs / Spider / DRAW12.ADA < prev    next >
Encoding:
Text File  |  1994-01-10  |  214 b   |  24 lines  |  [TEXT/Anon]
  1. WITH Spider; USE Spider;
  2. PROCEDURE Drawing12 IS
  3.  
  4. PROCEDURE Walk IS
  5. BEGIN
  6. WHILE NOT AtWall LOOP
  7.      Step;
  8. END LOOP;
  9. END Walk;
  10.  
  11. BEGIN
  12. Start;
  13. Red;
  14. Walk;
  15. Turn;
  16. Walk;
  17. Turn;
  18. Walk;
  19. Turn;
  20. Walk;
  21. Turn;
  22. Quit;
  23. END Drawing12;
  24.